home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / gfx / 3d / IIB10.lha / IIB / Threads / Additional / IARexx.lha / SpiralPath3.irx < prev    next >
Encoding:
Text File  |  1997-09-18  |  551 b   |  45 lines
  1. /*              */
  2. address 'Imagine.1'
  3.  
  4. displayrexxptr on
  5.  
  6. call addlib('rexxmathlib.library',0,-30,0)
  7. call addlib('rexxreqtools.library',0,-30,0)
  8.  
  9. pi = 3.14159
  10.  
  11. do i=0 to 5
  12.  
  13.   addaxis
  14.   pick
  15.  
  16.   attrib.objectname = 'SP.'i
  17.  
  18.   x = 50 * cos(2 * pi * i / 3)
  19.   y = 50 * sin(2 * pi * i / 3)
  20.   z= 10 * i
  21.   angle = 120 * i
  22.  
  23.   transform_position x y z
  24.   transforma_alignment 0 0 angle
  25.  
  26.   setattributes objectname
  27.  
  28. end
  29.  
  30. addaxis
  31. unpick all
  32. groupmode
  33. /* make the path*/
  34.  
  35. multipickon
  36. do i = 0 to 5
  37.    pick 'SP.'i
  38. end
  39. multipickoff
  40.  
  41. makepath
  42.  
  43.  
  44. displayrexxptr off
  45. exit